100 XT=49152
110 RL=0:ID=PEEK(186)
120 DIM FP%(32)
130 DIM FP$(32)
140 DIM RP$(32,4)
150 RP=0
160 RS=0
199 :
200 T0$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]"
900 POKE53280,0:POKE53281,0
999 :
1000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
1010 PRINTT0$
1020 GOSUB 30000
1030 GOSUB 29000
1040 GOSUB 20000
1050 GOSUB 10000
1060 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
1070 PRINTT0$
1080 PRINT"[155]ALL DONE..."
1090 END
1099 :
1900 END
10000 OPEN 2,ID,2,"@0:RL.INI,U,W"
10010 FOR P0=1 TO RP
10020 PRINT#2,RP$(P0,1);",";
10030 PRINT#2,RP$(P0,3);",";
10040 PRINT#2,RP$(P0,2);",";
10050 PRINT#2,RP$(P0,4)
10060 NEXT
10070 CLOSE2:RETURN
10099 :
20000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
20010 PRINTT0$:GOSUB 60000:GOSUB 51000
20099 :
21000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
21010 PRINTT0$:GOSUB21300
21020 PRINT"-1- [155]PARTITION TYP NATIVE"
21030 PRINT"-2- [155]PARTITION TYP 1541"
21040 PRINT"-3- [155]PARTITION TYP 1571"
21050 PRINT"-4- [155]PARTITION TYP 1581"
21060 PRINT"-5- [155]PARTITION TYP DACC"
21070 PRINT"-6- [155]INSERT 128-BLOCK DACC"
21080 PRINT"-9- [155]SHOW 'RL.INI'-FILE DATA"
21090 PRINT"-0- [155]EXIT, SAVE 'RL.INI' TO DISK."
21095 PRINTT0$:PRINT"[155]HIT RUN/STOP + RESTORE TO ABORT!"
21099 :
21200 POKE 198,0:WAIT 198,1:GET SP$
21210 IF SP$="0" THEN RETURN
21220 IF SP$="1" THEN 22000
21230 IF SP$="2" THEN 22000
21240 IF SP$="3" THEN 22000
21250 IF SP$="4" THEN 22000
21260 IF SP$="5" THEN 22000
21270 IF SP$="6" THEN 22000
21280 IF SP$="9" THEN 22100
21290 GOTO 21200
21299 :
21300 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
21310 PRINTT0$"[178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178]"
21320 PRINT"[221][155]FREE BLOCKS:      [221][155][157][157][157][157][157][157][157]"FM
21330 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
21340 RETURN
22000 GOSUB 28900
22010 RP=RP+1
22020 RP$(RP,1)=RIGHT$("  "+STR$(PN),2)
22030 RP$(RP,2)=LEFT$(PN$+"                ",16)
22040 RP$(RP,3)=RIGHT$("  "+STR$(PT),2)
22050 RP$(RP,4)=RIGHT$("      "+STR$(PS),5)
22060 FM=FM-PS
22070 IFRP=31THENRETURN
22080 GOTO21000
22099 :
22100 A1=0
22110 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
22120 PRINTT0$""
22130 A2=16:IFA1>0THENA2=15
22140 FORA0=1TOA2
22150 PRINT RIGHT$("   "+STR$(A1+A0),3)" - ";
22160 IFVAL(RP$(A1+A0,1))=0THEN22230
22170 PRINT RP$(A1+A0,1)",";
22180 PRINT RP$(A1+A0,2)",";
22190 A3=VAL(RP$(A1+A0,3))
22200 PRINT MID$("????CMD 154115711581????????DACC",1+A3*4,4);",";
22210 PRINT RP$(A1+A0,4)
22220 GOTO22240
22230 PRINT " NOT IN USE..."
22240 NEXT
22299 :
22300 PRINT""T0$:PRINT"HIT ANY KEY TO CONTINUE"
22310 POKE 198,0:WAIT198,1
22320 A1=A1+16:IFA1=16THEN22110
22330 GOTO21000
28000 REM INPUT PART.-NO.
28010 INPUT"PARTITION-NR. ";PN
28020 IF PN<1ORPN>31 THEN 28010
28030 F%=0:FOR A0=1 TO 31
28040 IF VAL(RP$(A0,1))=PNTHENF%=-1
28050 NEXT:IFF%<>0THEN28010
28060 RETURN
28099 :
28100 REM INPUT PART.-NAME
28110 IF SP$="6"THENPN$="DACC"+STR$(PN):RETURN
28120 INPUT"PARTITION-NAME ";PN$
28130 IF PN$="" THEN PN$="RL"+STR$(PN)
28140 RETURN
28199 :
28200 REM INPUT PART.-TYPE
28210 IF SP$="1" THEN PT=1
28220 IF SP$="2" THEN PT=2
28230 IF SP$="3" THEN PT=3
28240 IF SP$="4" THEN PT=4
28250 IF SP$="5" OR SP$="6" THEN PT=7
28260 RETURN
28299 :
28300 REM INPUT PART.SIZE
28310 IFPT=2THENPS=683:RETURN
28320 IFPT=3THENPS=1366:RETURN
28330 IFPT=4THENPS=3200:RETURN
28340 IFSP$="6"THENPS=128:RETURN
28350 PS=0:INPUT"PARTITION-SIZE ";PS
28360 IF(PS=-1)AND(PT=1)THENPS=INT(FM/256)*256:RETURN
28370 IFPS=0THEN28350
28380 IF(PS/128)<>INT(PS/128)THEN28350
28390 IFPT<>1THENRETURN
28400 IF(PS/256)<>INT(PS/256)THEN28350
28410 RETURN
28499 :
28900 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
28910 PRINTT0$
28920 GOSUB 28000
28930 GOSUB 28100
28940 GOSUB 28200
28950 GOSUB 28300
28960 RETURN
29000 REM LAUFWERK WAEHLEN
29010 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
29020 PRINTT0$
29030 PRINT "SAVE 'RL.INI'-FILE TO DRIVE  ";ID
29040 POKE198,0:INPUT "[145]";A0
29050 IF A0>=8 AND A0<=31 THEN 29070
29060 GOTO 29040
29070 OPEN15,A0,15:CLOSE15
29080 IF ST<>0 THEN 29040
29099 :
29100 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
29110 PRINTT0$
29120 ID=A0:RETURN
29990 END
29999 END
30000 REM GET RAMLINK-DEVICE
30010 PRINT"   SEARCHING FOR RAMLINK..."
30020 A0=8:RL=0
30030 POKE144,0:OPEN15,A0,15:CLOSE15:IFST<>0THENGOTO30090
30040 A$="":OPEN15,A0,15
30050 PRINT#15,"M-R"+CHR$(160)+CHR$(254)+CHR$(6)
30060 FORI=1TO6:GET#15,B$:A$=A$+B$:NEXT
30070 CLOSE15
30080 IFA$="CMD RL"THEN30200
30090 A0=A0+1:IFA0<32THEN30030
30100 PRINT"[155][147]INSTALLATION ERROR !"
30110 PRINTT0$
30120 PRINT"RAMLINK NOT AVAILABLE !"
30130 END
30199 :
30200 RL=A0
30210 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0":PRINTT0$
30220 RETURN
30299 :
39999 :
51000 BA=XT+256
51010 SA=0
51020 BH=PEEK(BA+21):SH=PEEK(BA+29)
51030 BM=PEEK(BA+22):SM=PEEK(BA+30)
51040 BL=PEEK(BA+23):SL=PEEK(BA+31)
51050 OS=BH*256^2+BM*256+BL
51060 SI=SH*256^2+SM*256+SL
51070 MX=OS-SA
51080 MM=OS+SI:FM=MX
51090 RETURN
51999 :
59990 END
60000 REM READ PARTITION TABLE
60010 PRINT"READING PARTITION TABLE..."
60020 TR=1:AD=XT+256
60030 FORSE=0TO4
60040 GOSUB61000
60050 AD=AD+256
60060 NEXT
60070 RETURN
60099 :
61000 REM READ SECTOR TO BUFFER
61010 SYS57513
61020 POKE56865,TR:POKE56866,SE
61030 POKE56867,AD-(INT(AD/256)*256)
61040 POKE56868,INT(AD/256)
61050 POKE56869,255:POKE56864,128
61060 SYS65057
61070 RETURN
61099 :